home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue33 / construc / REPORT.DPR < prev    next >
Encoding:
Text File  |  1998-04-06  |  1.0 KB  |  46 lines
  1. program REPORT;
  2. uses
  3.   DB, DBTables;
  4. begin
  5.   with TTable.Create(nil) do
  6.   try
  7.     Active := False;
  8.     TableType := ttParadox;
  9.     TableName := 'REPORT.DB';
  10.     with FieldDefs do
  11.     begin
  12.       Clear;
  13.       begin
  14.         Add('Report', ftInteger, 0, TRUE)
  15.       end;
  16.  
  17.       Add('ReportDate', ftDate, 0, FALSE);
  18.       Add('ReportedBy', ftString, 30, FALSE);
  19.       Add('ReportStatus', ftString, 16, FALSE);
  20.  
  21.       Add('ReportSystem', ftString, 30, FALSE);
  22.       Add('ReportProblem', ftString, 30, FALSE);
  23.       Add('ReportPriority', ftString, 16, FALSE);
  24.  
  25.       Add('ReportSummary', ftString, 255, FALSE);
  26.       Add('ReportSeeAlso', ftString, 16, FALSE);
  27.  
  28.       Add('ReportComments', ftMemo, 1, FALSE);
  29.  
  30.       Add('FixDate', ftDate, 0, FALSE);
  31.       Add('FixedBy', ftString, 30, FALSE);
  32.       Add('FixStatus', ftString, 16, FALSE);
  33.  
  34.       Add('FixComments', ftMemo, 1, FALSE)
  35.     end;
  36.     with IndexDefs do
  37.     begin
  38.       Clear;
  39.       Add('', 'Report', [ixPrimary,ixUnique])
  40.     end;
  41.     CreateTable
  42.   finally
  43.     Free
  44.   end
  45. end.
  46.